﻿Imports Control_Vuelos_BE
Imports Control_Vuelos_ADO

Public Class ProgramaViajeBL
    Dim _ProgramaViajeADO As New ProgramaViajeADO

    Public Function CargarTipoVueloCupos(ByVal sTip As String) As Integer
        Return _ProgramaViajeADO.CargarTipoVueloCupos(sTip)
    End Function

    Public Function CrearProgramaViaje(ByVal pvBE As V_ProgramaViajeBE) As Boolean
        Return _ProgramaViajeADO.CrearProgramaViaje(pvBE)
    End Function

    Public Function EliminarProgramaViaje(ByVal sCodpv As String) As Boolean
        Return _ProgramaViajeADO.EliminarProgramaViaje(sCodpv)
    End Function

    Public Function ListarProgramaViaje(ByVal sFiltro As String) As DataTable
        Return _ProgramaViajeADO.ListarProgramaViaje(sFiltro)
    End Function

    Public Function ListarProgramaViajeTreeList(ByVal p_EstadoViaje As Char) As DataTable
        Return _ProgramaViajeADO.ListarProgramaViajeTreeList(p_EstadoViaje)
    End Function

    Public Function ListarProgramaViajeTreeListCerrado(ByVal p_EstadoViaje As Char) As DataTable
        Return _ProgramaViajeADO.ListarProgramaViajeTreeListCerrado(p_EstadoViaje)
    End Function

    Public Function ListarProgramaViajeTreeListChecking(ByVal p_EstadoViaje As Char, ByVal p_CodUser As String) As DataTable
        Return _ProgramaViajeADO.ListarProgramaViajeTreeListChecking(p_EstadoViaje, p_CodUser)
    End Function

    Public Function ListarProgramaViajeTreeListCheckingCerrado(ByVal p_EstadoViaje As Char, ByVal p_CodUser As String) As DataTable
        Return _ProgramaViajeADO.ListarProgramaViajeTreeListCheckingCerrado(p_EstadoViaje, p_CodUser)
    End Function

    Public Function ModificarProgramaViaje(ByVal pvBE As V_ProgramaViajeBE) As Boolean
        Return _ProgramaViajeADO.ModificarProgramaViaje(pvBE)
    End Function

    Public Function NuevoCorrelativo(ByVal sLug As String) As String
        Return _ProgramaViajeADO.NuevoCorrelativo(sLug)
    End Function

    Public Function sp_Lista_ProgramaViaje(ByVal p_CodLugarOrigen As String) As DataTable
        Return _ProgramaViajeADO.sp_Lista_ProgramaViaje(p_CodLugarOrigen)
    End Function

    Public Function TraerProgramaViaje(ByVal sCodpv As String) As V_ProgramaViajeBE
        Return _ProgramaViajeADO.TraerProgramaViaje(sCodpv)
    End Function

End Class
